home *** CD-ROM | disk | FTP | other *** search
/ AEMail 2.40 / AEMail v2.40.iso / arexx / placeaddr.aem < prev    next >
Text File  |  1999-02-28  |  1KB  |  60 lines
  1. /* AEMail Add EMail Address Variable to Individual in Address Book */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. /* TRACE ALL */
  6.  
  7. GETVAR
  8.  
  9. emailaddr = RESULT
  10.  
  11. IF (POS('@', emailaddr, 1) = 0) THEN DO
  12.     OKAY1 "No email address given"
  13.     EXIT
  14.     END
  15.  
  16. OK = 0
  17. askstring = 1
  18. DO UNTIL OK = 1
  19.     msg = 'Enter a Nickname for '||emailaddr
  20.     IF (askstring) THEN DO
  21.         GETSTRING '"'msg'"'
  22.         nick = RESULT
  23.         END
  24.     ELSE askstring = 1
  25.     IF (nick = "") THEN DO
  26.         OKAY2 '"Re-enter Nickname|Cancel"' "You must have a nickname"
  27.         IF (result = 0) THEN exit
  28.         ITERATE
  29.         END
  30.     IF (LENGTH(nick) > 8) THEN DO
  31.         OKAY2 '"Re-enter Nickname|Cancel"' "You can not have a nickname greater than 8 characters"
  32.         IF (result = 0) THEN exit
  33.         ITERATE
  34.         END
  35.  
  36.     ADDRESS_BOOK GET nick TYPE
  37.     addrtype = RESULT
  38.     IF (addrtype = -1) THEN DO
  39.         msg = 'Enter a real name for '||emailaddr
  40.         GETSTRING '"'msg'"'
  41.         realname = result
  42.         END
  43.     ELSE DO
  44.         OKAY2 '"Re-enter Nickname|Show Nickname List|Cancel"' "Nickname is already is Use"
  45.         IF (RESULT = 0) THEN exit
  46.         IF (RESULT = 2) THEN DO
  47.             ADDRESS_BOOK LIST ALL LF
  48.             alllist = RESULT
  49.             GETLISTITEM  "'"alllist"' 'Enter nickname not in list'"
  50.             nick = RESULT
  51.             askstring = 0
  52.             END
  53.         ELSE askstring = 1
  54.         ITERATE
  55.         END
  56.     OK = 1
  57.     END
  58.  
  59. ADDRESS_BOOK ADD INDIVIDUAL nick emailaddr realname
  60.